;;;QQ:67762207
[@긱]
{
#IF
#ACT
loadvalue D8 "ϵͳ.INI"  񸱱ʱ

#IF
large D8 %CURHOUR
#ACT
break
#SAY
<$OUTPUT(D8)>Сʱ񸱱.\\
<[   ]/@main>\
#IF
checkhum $00d024
#ACT
MOV D0 %P9

#IF
checkhum $01d024
#ACT
MOV D1 %P9

#IF
checkhum $02d024
#ACT
MOV D2 %P9

#IF
checkhum $03d024
#ACT
MOV D3 %P9
#if
#say
רΪ,ͨɸý׶.\
ÿ4Сʱˢһ,ᱬκζ.ֻ.\
ÿֻһ˽,2һҪĻ,˫.\
еĽ©ˢ,߲еκ,оǷҪ.\
<һŸ/@gosingunfuben(1)> (<$OUTPUT(D0)>) ȡ10.\\
<Ÿ/@gosingunfuben(2)> (<$OUTPUT(D1)>) ȡ20.\\
<Ÿ/@gosingunfuben(3)> (<$OUTPUT(D2)>) ȡ30.\\
<ĺŸ/@gosingunfuben(4)> (<$OUTPUT(D3)>) ȡ40.\\
<뿪/@exit>

[@gosingunfuben()]
#if
#act
MOV D0 %ARG(1)

#IF
equal D0 1
checkhum $00d024 1
checkcmd checkuserjf 20
#act
actcmd SETUSERJF - 20 긱
map $00d024
break

#IF
equal D0 1
checkhum $00d024 0
checkcmd checkuserjf 10
#act
actcmd SETUSERJF - 10 긱
map $00d024
break

#IF
equal D0 2
checkhum $01d024 1
checkcmd checkuserjf 40
#act
actcmd SETUSERJF - 40 긱
map $01d024
break

#IF
equal D0 2
checkhum $01d024 0
checkcmd checkuserjf 20
#act
actcmd SETUSERJF - 20 긱
map $01d024
break

#IF
equal D0 3
checkhum $02d024 1
checkcmd checkuserjf 60
#act
actcmd SETUSERJF - 60 긱
map $02d024
break

#IF
equal D0 3
checkhum $02d024 0
checkcmd checkuserjf 30
#act
actcmd SETUSERJF - 30 긱
map $02d024
break

#IF
equal D0 4
checkhum $03d024 1
checkcmd checkuserjf 80
#act
actcmd SETUSERJF - 80 긱
map $03d024
break

#IF
equal D0 4
checkhum $03d024 0
checkcmd checkuserjf 40
#act
actcmd SETUSERJF - 40 긱
map $03d024
#elsesay
ԲĻֲ޷!\
<뿪/@exit>
}
;;;QQ:67762207
